Исходный текст

Option Explicit
Call ShowInFormsInfo()


'==============================================================================
'Вывести на экран информацию о коллекции форм приложения.
'Выполнять данный пример может только системный администратор.
'==============================================================================
Sub ShowInFormsInfo()

        Dim form, forms, count

        Set forms = ThisApplication.InputForms
        With forms
                'Если форм ввода нет, то выводим соответствующее сообщение
                If .Count = 0 Then
                            MsgBox "В приложении не определено ни одной формы ввода."
                Else
                            For each form in forms
                                    If form.Script <> "" Then count = count + 1
                            Next
                            MsgBox "В приложении определено форм ввода: " & .Count & _
                                    Chr(13) & "Из них " & count & " содержат обработку событий (скрипт)", _
                                    vbInformation, "Информация о текущей настройке"
                End If
        End With
End Sub 
'==============================================================================